home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbsub10.arc / SIMTIDMO.ASC < prev    next >
Encoding:
Text File  |  1986-06-25  |  1.4 KB  |  54 lines
  1. ' SIMTIDMO -- QuickBASIC test of the SIMTIME subroutine        25 June 86
  2. '        by David L. Poskie     (608) 274-9560
  3. '                  7118 Raymond Rd. Madison, WI 53719
  4. ' Please run any suggestions, corrections, additions, or changes by me.
  5. ' I can be messaged on all the major Madison, WI RBBS's.
  6.  
  7. '   Compile syntax: BASCOM SIMTIDMO.ASC /D;  |  LINK SIMTIDMO;
  8.  
  9. GOTO Start
  10.     Rem     $Include: 'OMNI.SUB'
  11.     Rem     $Include: 'SIMTIME.SUB'
  12.  
  13. Start:
  14.     ' Set color to your preference
  15.     COLOR 14 , 3 , 8
  16.     CLS
  17.     ' Set BaseLine and all other variables
  18.     Year = 1944
  19.     Month = 6
  20.     Day = 6
  21.     Hour = 4
  22.     BaseLine = TIMER    ' The time simulation begins NOW.
  23.  
  24.     LOCATE 7 , 1
  25.     Text$ = "     Time Simulation Demonstration"
  26.     GOSUB Center
  27.     Text$ = "One second real time = one hour simulated"
  28.     GOSUB Center
  29.     PRINT
  30.  
  31.     ' TestLoop has an elegant way to escape itself
  32.     Text$ = "      Press <ESC> to quit program"
  33.     GOSUB Center
  34.     Temp$ = ""
  35. TestLoop:
  36.      WHILE Temp$ <> CHR$(27)
  37.         GOSUB SIMTIME
  38.         LOCATE 12 , 1
  39.         Text$ = " Year" + STR$(Year)
  40.         GOSUB Center
  41.         Text$ = "Month" + STR$(Month)
  42.         GOSUB Center
  43.         Text$ = "  Day" + STR$(Day)
  44.         GOSUB Center
  45.         Text$ = " Hour" + STR$(INT(Hour))
  46.         GOSUB Center
  47.         PRINT
  48.         Text$ = TIME$
  49.         GOSUB Center
  50.         Temp$ = INKEY$
  51.       WEND
  52. SYSTEM
  53. '>>>> Physical EOF SIMTIDMO.ASC  25 June 86
  54.